perm filename BREAK.LAP[1,MWK] blob
sn#044157 filedate 1973-07-15 generic text, type T, neo UTF8
(DEFPROP SAVEDEF T NOCALL)
(DEFPROP ATOMLISTP T NOCALL)
(DEFPROP BREAKIN0 T NOCALL)
(DEFPROP UNBREAKIN T NOCALL)
(DEFPROP BREAK0A T NOCALL)
(DEFPROP CHNGNM T NOCALL)
(DEFPROP CHNM1 T NOCALL)
(DEFPROP RESTORE T NOCALL)
(DEFPROP PACK-IN T NOCALL)
(LAP BREAK0 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG13)
(HRRZ@ 1 -4 P)
(HLRZ@ 1 1)
(CAIN 1 (QUOTE IN) S)
(JRST 0 TAG16)
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG24)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(HLRZ@ 1 1)
(CALL 3 (E BREAK0) S)
(HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG24 (MOVEI 1 (QUOTE NIL))
(JRST 0 TAG15)
TAG16 (HLRZ@ 1 -4 P)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG25)
(HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG27)
(MOVE 4 3)
(EXCH 3 2)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(PUSHJ P BREAK0A)
(JRST 0 TAG26)
TAG27
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG36)
(MOVE 4 -2 P)
(MOVE 3 -3 P)
(HLRZ@ 2 1)
(MOVE 1 0 P)
(PUSHJ P BREAK0A)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG36 (MOVEI 1 (QUOTE NIL))
TAG26 (JRST 0 TAG15)
TAG25 (HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG37)
TAG3 (MOVE 1 0 P)
(JUMPE 1 TAG44)
(MOVE 4 -2 P)
(MOVE 3 -3 P)
(MOVE 2 -1 P)
(HLRZ@ 1 1)
(PUSHJ P BREAK0A)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG3)
TAG44 (MOVEI 1 (QUOTE NIL))
(JRST 0 TAG15)
TAG37
TAG4 (MOVE 1 0 P)
(JUMPE 1 TAG53)
(MOVE 1 -1 P)
(MOVEM 1 -4 P)
TAG5 (MOVE 1 -4 P)
(JUMPE 1 TAG60)
(MOVE 4 -2 P)
(MOVE 3 -3 P)
(HLRZ@ 2 1)
(HLRZ@ 1 0 P)
(PUSHJ P BREAK0A)
(HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG5)
TAG60 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG53 (MOVEI 1 (QUOTE NIL))
TAG15 (JRST 0 TAG7)
TAG13 (MOVEI 2 (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(MOVE 1 -4 P)
(CALL 2 (E GETL) S)
(MOVEM 1 -1 P)
(JUMPN 1 TAG61)
(MOVE 1 -4 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE NOT/ BREAKABLE/ FUNCTION) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG10)
TAG61 (MOVEI 2 (QUOTE TRACE) S)
(MOVE 1 -4 P)
(CALL 2 (E GET) S)
(JUMPE 1 TAG63)
(MOVE 2 (SPECIAL BROKENFNS) S)
(MOVE 1 -4 P)
(CALL 2 (E REMOVE) S)
(MOVEM 1 (SPECIAL BROKENFNS) S)
(MOVE 2 (SPECIAL TRACEDFNS) S)
(MOVE 1 -4 P)
(CALL 2 (E REMOVE) S)
(MOVEM 1 (SPECIAL TRACEDFNS) S)
(HRRZ@ 1 -1 P)
(CALL 1 (E CDDAR) S)
(HLRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(CAIE 2 (QUOTE BREAK1) S)
(JRST 0 TAG65)
(CALL 1 (E CDDR) S)
(MOVE 2 -3 P)
(HRLM@ 2 1)
(PUSH P 0 P)
(HRRZ@ 1 0 P)
(CALL 1 (E CDDDR) S)
(PUSH P 1)
(MOVE 1 -4 P)
(JUMPE 1 TAG67)
(CALL 1 (E CADR) S)
(CAIE 1 (QUOTE //BREAK1) S)
(JRST 0 TAG71)
(PUSH P -4 P)
(HRRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -5 P)
(CALL 1 (E CADAR) S)
(MOVEM 1 -5 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG73)
(MOVE 2 -5 P)
(JRST 0 TAG72)
TAG73 (MOVEI 2 (QUOTE NIL))
TAG72 (MOVEI 1 (QUOTE ?=) S)
(CALL 2 (E CONS) S)
(HRLM@ 1 0 P)
(MOVE 1 -6 P)
(SUB P (C 2 0 2 0))
(JRST 0 TAG70)
TAG71 (MOVE 1 -4 P)
TAG70 (CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
TAG67 (HRLM@ 1 0 P)
(SUB P (C 2 0 2 0))
(JRST 0 TAG6)
TAG65 (MOVE 1 -4 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE UNBREAK) S)
(CALL 2 (E APPLY#) S)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG7)
TAG63 (MOVE 2 (SPECIAL UNBREAKABLEFNS) S)
(MOVE 1 -4 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG100)
(MOVE 1 -4 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE UNBREAKABLE/ UNLESS/ 'IN'/ SOMETHING) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE ?) S)
(JRST 0 TAG7)
TAG100
(MOVE 2 -1 P)
(MOVE 1 -4 P)
(PUSHJ P SAVEDEF)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(MOVE 1 -4 P)
(CALL 2 (E REMPROP) S)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE QUOTE) S)
(CALL 2 (E CONS) S)
(PUSH P 1)
(MOVE 1 -5 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(PUSH P -4 P)
(PUSH P -2 P)
(PUSH P -7 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 1 (E CADAR) S)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(CALL 1 (E CAAR) S)
(PUSH P 1)
(MOVE 1 -11 P)
(JUMPE 1 TAG102)
(CALL 1 (E CADR) S)
(CAIE 1 (QUOTE //BREAK1) S)
(JRST 0 TAG104)
(PUSH P -11 P)
(HRRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -11 P)
(CALL 1 (E CADAR) S)
(MOVEM 1 -12 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG106)
(MOVE 2 -12 P)
(JRST 0 TAG105)
TAG106
(MOVEI 2 (QUOTE NIL))
TAG105
(MOVEI 1 (QUOTE ?=) S)
(CALL 2 (E CONS) S)
(HRLM@ 1 0 P)
(MOVE 1 -13 P)
(SUB P (C 2 0 2 0))
(JRST 0 TAG103)
TAG104
(MOVE 1 -11 P)
TAG103
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
TAG102
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 -2 P)
(CALL 2 (E XCONS) S)
(MOVE 2 -5 P)
(CALL 2 (E XCONS) S)
(MOVE 2 -6 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE BREAK1) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(HLRZ@ 3 -6 P)
(MOVE 2 1)
(EXCH 1 -2 P)
(CALL 3 (E PUTPROP) S)
(SUB P (C 6 0 6 0))
TAG6 (MOVE 1 (SPECIAL BKFNLIST) S)
(PUSH P 1)
(CALL 1 (E *EVAL) S)
(MOVE 2 -5 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SET) S)
(MOVE 1 -4 P)
(JRST 0 TAG7)
TAG10 (MOVEI 1 (QUOTE NIL))
TAG7 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP SAVEDEF SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (CALL 0 (E GENSYM) S)
(CALL 1 (E INTERN) S)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVEM 1 0 P)
(JUMPN 2 TAG1)
(PUSH P (C 0 0 TAG7 0))
(HRRZ@ 1 -1 P)
(PUSH P 1)
(HLRZ@ 1 -4 P)
(CAIE 1 (QUOTE MACRO) S)
(JRST 0 TAG11)
(MOVEI 1 (QUOTE FEXPR) S)
(JRST 0 TAG10)
TAG11 (HLRZ@ 1 -4 P)
TAG10 (PUSH P 1)
(HRRZ@ 1 -5 P)
(HLRZ@ 1 1)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG7 (HLRZ@ 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS) S)
(MOVEI 3 (QUOTE FUNTYPE) S)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 3 (QUOTE ERXACTION) S)
(MOVEI 2 (QUOTE (T T NIL NIL)) S)
(MOVE 1 0 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 3 (QUOTE ERXACTION) S)
(MOVEI 2 (QUOTE (NIL NIL T T)) S)
(MOVE 1 -3 P)
(CALL 3 (E PUTPROP) S)
TAG2 (MOVEI 2 (QUOTE (FSUBR SUBR)) S)
(HLRZ@ 1 -2 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG13)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE ARGUMENT/ LIST?) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(CALL 1 (E PRINC) S)
(CALL 0 (E READ) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG15)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG15)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE SHOULD/ BE/ LIST) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG15 (MOVE 1 -1 P)
(PUSHJ P ATOMLISTP)
(JUMPN 1 TAG20)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE SHOULD/ BE/ LIST/ OF/ ATOMIC/ ARGUMENTS) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG20 (HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE FSUBR) S)
(JRST 0 TAG22)
(HRRZ@ 1 -1 P)
(JUMPE 1 TAG22)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE FSUBR/ --/ TAKES/ ONLY/ ONE/ ARGUMENT) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG22 (JRST 0 TAG12)
TAG13 (HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE LSUBR) S)
(JRST 0 TAG25)
(MOVEI 1 (QUOTE N?) S)
(MOVEM 1 -1 P)
(JRST 0 TAG12)
TAG25 (HRRZ@ 1 -2 P)
(CALL 1 (E CADAR) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG27)
(MOVE 1 -1 P)
(JUMPE 1 TAG27)
(HRRZ@ 1 -2 P)
(CALL 1 (E CADAR) S)
(CALL 1 (E NCONS) S)
(HRRZ@ 2 -2 P)
(HLRZ@ 2 2)
(HRRZ@ 2 2)
(HRLM@ 1 2)
(JUMPE 2 TAG27)
(MOVEI 3 (QUOTE LEXPR) S)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 0 P)
(CALL 3 (E PUTPROP) S)
(JUMPN 1 TAG26)
TAG27 (TDZA 1 1)
TAG26 (MOVEI 1 (QUOTE T) S)
TAG12 (MOVE 2 0 P)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS) S)
(MOVEI 3 (QUOTE TRACE) S)
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 2 (QUOTE (SUBR EXPR LSUBR)) S)
(HLRZ@ 1 -2 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG31)
(MOVEI 1 (QUOTE EXPR) S)
(JRST 0 TAG30)
TAG31 (HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE MACRO) S)
(JRST 0 TAG32)
(MOVEI 1 (QUOTE MACRO) S)
(JRST 0 TAG30)
TAG32 (MOVEI 1 (QUOTE FEXPR) S)
TAG30 (PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(PUSH P -2 P)
(PUSH P 1)
(HLRZ@ 1 -5 P)
(CAIE 1 (QUOTE LSUBR) S)
(JRST 0 TAG34)
(MOVEI 1 (QUOTE N?) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE LXPD) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG33)
TAG34 (MOVE 1 -4 P)
(JUMPE 1 TAG35)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG35)
(MOVE 1 -4 P)
(CALL 1 (E NCONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG33)
TAG35 (MOVEI 2 (QUOTE (SUBR EXPR)) S)
(HLRZ@ 1 -5 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG40)
(MOVE 1 -4 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG33)
TAG40 (HLRZ@ 1 -4 P)
TAG33 (CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE BRKAPPLY) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE LAMBDA) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(SUB P (C 4 0 4 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP ATOMLISTP SUBR)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG6)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG10 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BRKAPPLY SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 TAG1 0))
(CALL 2 (E CONS) S)
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E BKEVAL) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP BREAK FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG10 (HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE IN) S)
(JRST 0 TAG11)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG11 (HRRZ@ 1 -1 P)
(JUMPE 1 TAG12)
(HRRZ@ 3 -1 P)
(HRRZ@ 3 3)
(HRRZ@ 2 -1 P)
(HLRZ@ 2 2)
(HLRZ@ 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG12 (MOVEI 1 (QUOTE ?) S)
TAG5 (MOVE 2 0 P)
(CALL 2 (E CONS) S)
(HRRZ@ 2 -2 P)
(MOVEM 1 0 P)
(MOVEM 2 -2 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP TRACE FSUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL BKFNLIST) S)
(PUSH P 1)
(MOVEI 1 (QUOTE TRACEDFNS) S)
(MOVEM 1 (SPECIAL BKFNLIST) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE (UNTRACE)) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE //BREAK1) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE (TRACE)) S)
(CALL 2 (E XCONS) S)
(MOVE 3 1)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG10 (HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE IN) S)
(JRST 0 TAG11)
(MOVEI 1 (QUOTE (UNTRACE)) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE //BREAK1) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE (TRACE)) S)
(CALL 2 (E XCONS) S)
(MOVE 3 1)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -1 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG5)
TAG11 (HRRZ@ 2 -1 P)
(MOVEI 1 (QUOTE ?=) S)
(CALL 2 (E CONS) S)
(PUSH P 1)
(MOVEI 1 (QUOTE (UNTRACE)) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE (TRACE)) S)
(CALL 2 (E XCONS) S)
(MOVE 3 1)
(MOVEI 2 (QUOTE T) S)
(HLRZ@ 1 -1 P)
(CALL 3 (E BREAK0) S)
TAG5 (MOVE 2 0 P)
(CALL 2 (E CONS) S)
(HRRZ@ 2 -2 P)
(MOVEM 1 0 P)
(MOVEM 2 -2 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP BREAKIN FSUBR)
(PUSH P 1)
(MOVEM 1 0 P)
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JUMPE 1 TAG2)
(HLRZ@ 2 1)
(JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE (BEFORE TTY:)) S)
TAG1 (PUSH P 2)
(MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HRRZ@ 1 1)
(MOVEM 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 3 -2 P)
(JRST 0 TAG3)
TAG4 (MOVEI 3 (QUOTE T) S)
TAG3 (PUSH P 3)
(MOVE 1 -3 P)
(JUMPE 1 TAG10)
(HRRZ@ 1 1)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(MOVE 4 1)
(JRST 0 TAG7)
TAG10 (MOVEI 4 (QUOTE NIL))
TAG7 (POP P 3)
(POP P 2)
(POP P 1)
(SUB P (C 1 0 1 0))
(JRST 0 BREAKIN0)
NIL
(LAP SUBFUN1BREAKIN0 SUBR)
(HRRZ@ 2 (SPECIAL WHERE) S)
(MOVEI 1 (QUOTE LC) S)
(CALL 2 (E CONS) S)
(PUSH P (SPECIAL FNDEF) S)
(PUSH P 1)
(HLRZ@ 1 (SPECIAL WHERE) S)
(MOVEM 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE AFTER) S)
(JRST 0 TAG2)
(MOVEI 1 (QUOTE A) S)
(JRST 0 TAG1)
TAG2 (CAIE 1 (QUOTE BEFORE) S)
(JRST 0 TAG3)
(MOVEI 1 (QUOTE B) S)
(JRST 0 TAG1)
TAG3 (CAIE 1 (QUOTE AROUND) S)
(JRST 0 TAG4)
(MOVEI 1 (QUOTE MBD) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 (SPECIAL WHERE) S)
TAG1 (PUSH P 1)
(MOVE 1 (SPECIAL MESS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(POP P 1)
(JCALL 3 (E EDITE) S)
NIL
(LAP BREAKIN0 SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL WHERE) S)
(0 0 (SPECIAL FNDEF) S)
(0 0 (SPECIAL MESS) S)
(PUSH P 1)
(PUSH P 3)
(PUSH P 4)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE TRACE) S)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG10)
(HRRZ@ 1 1)
(JRST 0 TAG7)
TAG10 (MOVE 1 -3 P)
TAG7 (MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S)
(CALL 2 (E GETL) S)
(MOVEM 1 (SPECIAL FNDEF) S)
(JUMPE 1 TAG6)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL FNDEF) S)
(JRST 0 TAG5)
TAG6 (MOVEI 2 (QUOTE (NOT FUNCTION)) S)
(MOVE 1 -3 P)
(CALL 2 (E CONS) S)
(CALL 1 (E PRINT) S)
(JUMPE 1 TAG11)
(CALL 0 (E ERR) S)
TAG11
TAG5 (MOVE 2 (SPECIAL BROKENFNS) S)
(MOVE 1 -3 P)
(CALL 2 (E REMOVE) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL BROKENFNS) S)
(HLRZ@ 1 (SPECIAL WHERE) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG13)
(HRRZ@ 1 (SPECIAL WHERE) S)
(HLRZ@ 2 (SPECIAL WHERE) S)
(MOVEM 2 (SPECIAL WHERE) S)
(MOVEM 1 0 P)
TAG13
TAG1 (MOVEI 2 (QUOTE (AROUND BEFORE AFTER)) S)
(HLRZ@ 1 (SPECIAL WHERE) S)
(CALL 2 (E MEMQ) S)
(JUMPN 1 TAG15)
(MOVEI 2 (QUOTE ?) S)
(HLRZ@ 1 (SPECIAL WHERE) S)
(CALL 2 (E CONS) S)
(JRST 0 TAG2)
(JUMPN 1 TAG15)
TAG15 (HLRZ@ 1 (SPECIAL WHERE) S)
(CAIE 1 (QUOTE AROUND) S)
(JRST 0 TAG20)
(MOVEI 1 (QUOTE (QUOTE *)) S)
(JRST 0 TAG17)
TAG20 (MOVEI 1 (QUOTE NIL))
TAG17 (PUSH P 1)
(MOVE 1 (SPECIAL WHERE) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -4 P)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE BREAK1) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL MESS) S)
(MOVEI 1 (QUOTE ((SUBFUN1BREAKIN0) (QUOTE ERRORX))) S)
(CALL 17 (E ERRSET) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG22)
(MOVEI 1 (QUOTE (NOT FOUND)) S)
(CALL 1 (E PRINT) S)
(JRST 0 TAG21)
TAG22 (MOVEI 3 (QUOTE BROKEN-IN) S)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 -3 P)
(CALL 3 (E PUTPROP) S)
TAG21 (CALL 0 (E TERPRI) S)
(MOVE 1 0 P)
(JUMPE 1 TAG24)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL WHERE) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG24 (MOVE 1 -3 P)
TAG2 (SUB P (C 4 0 4 0))
(JRST 0 SPECSTR)
NIL
(LAP UNBREAKIN SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL UPFINDFLG) S)
(PUSH P 1)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL UPFINDFLG) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE TRACE) S)
(MOVE 1 -1 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG5 (MOVE 1 -1 P)
(MOVEM 1 0 P)
TAG4 (MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S)
(MOVE 1 0 P)
(CALL 2 (E GETL) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(CALL 1 (E CADR) S)
(MOVEM 1 0 P)
(JRST 0 TAG6)
TAG7 (MOVEI 2 (QUOTE ?) S)
(MOVE 1 -1 P)
(CALL 2 (E CONS) S)
(JRST 0 TAG1)
TAG6 (MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE ((LPQ F BREAK1 (COMS (SELECTQ (## 4 2 2 1) (AROUND (QUOTE (XTR 2 2))) ((AFTER BEFORE) (QU→
OTE DELETE)) NIL))))) S)
(MOVE 1 0 P)
(CALL 3 (E EDITE) S)
(MOVE 1 -1 P)
TAG1 (SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP BREAK0A SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 3 (QUOTE NIL))
(EXCH 2 1)
(PUSHJ P CHNGNM)
(MOVEM 1 -3 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -3 P)
(CALL 3 (E BREAK0) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 -3 P)
(CALL 1 (E NCONS) S)
TAG1 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP CHNGNM SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE TRACE) S)
(CALL 2 (E GET) S)
(MOVEM 1 -4 P)
(JUMPE 1 TAG10)
(HRRZ@ 1 1)
(JRST 0 TAG7)
TAG10 (MOVE 1 -7 P)
TAG7 (MOVEI 2 (QUOTE (EXPR FEXPR)) S)
(CALL 2 (E GETL) S)
(MOVEM 1 0 P)
(JUMPN 1 TAG5)
(MOVE 1 -7 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE (CAN'T BREAK INSIDE)) S)
(CALL 2 (E *APPEND) S)
(JRST 0 TAG1)
TAG5 (MOVE 1 -7 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE IN) S)
(CALL 2 (E XCONS) S)
(MOVE 2 -6 P)
(CALL 2 (E XCONS) S)
(PUSHJ P PACK-IN)
(MOVEM 1 -1 P)
(MOVE 1 -5 P)
(JUMPE 1 TAG12)
(HLRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E REMPROP) S)
(MOVEI 2 (QUOTE NAMESCHANGED) S)
(MOVE 1 -7 P)
(CALL 2 (E GET) S)
(EXCH 2 1)
(MOVE 1 -6 P)
(CALL 2 (E REMOVE) S)
(MOVEM 1 -4 P)
(JUMPE 1 TAG14)
(MOVEI 3 (QUOTE NAMESCHANGED) S)
(MOVE 2 1)
(MOVE 1 -7 P)
(CALL 3 (E PUTPROP) S)
(JRST 0 TAG13)
TAG14 (MOVEI 2 (QUOTE NAMESCHANGED) S)
(MOVE 1 -7 P)
(CALL 2 (E REMPROP) S)
TAG13 (MOVEI 2 (QUOTE ALIAS) S)
(MOVE 1 -1 P)
(CALL 2 (E REMPROP) S)
(MOVE 1 -6 P)
(MOVE 2 -1 P)
(MOVEM 1 -3 P)
(MOVEM 2 -2 P)
(JRST 0 TAG11)
TAG12 (MOVE 1 -1 P)
(MOVEM 1 -3 P)
(MOVEI 2 (QUOTE NAMESCHANGED) S)
(MOVE 1 -7 P)
(CALL 2 (E GET) S)
(EXCH 2 1)
(MOVE 1 -6 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG20)
(MOVE 2 -1 P)
(JRST 0 TAG17)
TAG20 (MOVE 2 -6 P)
TAG17 (MOVEM 2 -2 P)
TAG11 (MOVE 3 -3 P)
(MOVE 2 -2 P)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(PUSHJ P CHNM1)
(JUMPN 1 TAG24)
(MOVE 1 -7 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE (NOT FOUND IN)) S)
(CALL 2 (E *APPEND) S)
(MOVE 2 -2 P)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG24 (MOVE 1 -5 P)
(JUMPN 1 TAG27)
(MOVEI 2 (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(MOVE 1 -6 P)
(CALL 2 (E GETL) S)
(HLRZ@ 3 1)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(MOVEM 1 -4 P)
(MOVE 1 -1 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 2 (QUOTE NAMESCHANGED) S)
(MOVE 1 -7 P)
(CALL 2 (E GET) S)
(MOVE 2 1)
(MOVEM 1 -4 P)
(MOVE 1 -6 P)
(CALL 2 (E MEMQ) S)
(JUMPN 1 TAG32)
(MOVE 2 -4 P)
(MOVE 1 -6 P)
(CALL 2 (E CONS) S)
(MOVEI 3 (QUOTE NAMESCHANGED) S)
(MOVE 2 1)
(MOVE 1 -7 P)
(CALL 3 (E PUTPROP) S)
TAG32 (MOVE 2 -6 P)
(MOVE 1 -7 P)
(CALL 2 (E CONS) S)
(MOVEI 3 (QUOTE ALIAS) S)
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 3 (E PUTPROP) S)
TAG27 (MOVE 1 -3 P)
TAG1 (SUB P (C 10 0 10 0))
(POPJ P)
NIL
(LAP UNBREAK FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 1 TAG5)
(MOVE 1 (SPECIAL BKFNLIST) S)
(CALL 1 (E *EVAL) S)
(MOVEI 2 (QUOTE NIL))
(MOVEM 1 -1 P)
(MOVE 1 (SPECIAL BKFNLIST) S)
(CALL 2 (E SET) S)
(JRST 0 TAG4)
TAG5 (MOVE 1 (SPECIAL BKFNLIST) S)
(CALL 1 (E *EVAL) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE T) S)
(JRST 0 TAG7)
(HLRZ@ 1 0 P)
(HRLM@ 1 -1 P)
(HRRZ@ 2 0 P)
(MOVE 1 (SPECIAL BKFNLIST) S)
(CALL 2 (E SET) S)
TAG7
TAG4 (PUSH P (C 0 0 TAG12 0))
(MOVEI D (QUOTE UNBREAK0) S)
(PUSH P D)
(PUSH P -3 P)
(MOVNI 6 2)
(JCALL 16 (E MAPCAR) S)
TAG12 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP UNTRACE FSUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL BKFNLIST) S)
(PUSH P 1)
(MOVEI 1 (QUOTE TRACEDFNS) S)
(MOVEM 1 (SPECIAL BKFNLIST) S)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE UNBREAK) S)
(CALL 2 (E APPLY#) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP UNBREAK0 SUBR)
(PUSH P 1)
(PUSHJ P PACK-IN)
(MOVE 2 (SPECIAL BROKENFNS) S)
(MOVEM 1 0 P)
(CALL 2 (E DREMOVE) S)
(MOVEM 1 (SPECIAL BROKENFNS) S)
(MOVE 2 (SPECIAL TRACEDFNS) S)
(MOVE 1 0 P)
(CALL 2 (E DREMOVE) S)
(MOVEM 1 (SPECIAL TRACEDFNS) S)
(MOVEI 2 (QUOTE TRACE) S)
(MOVE 1 0 P)
(PUSHJ P RESTORE)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE BROKEN-IN) S)
(MOVE 1 -2 P)
(CALL 2 (E GET) S)
(JUMPE 1 TAG5)
(MOVE 1 -2 P)
(PUSHJ P UNBREAKIN)
(MOVEI 2 (QUOTE BROKEN-IN) S)
(MOVE 1 -2 P)
(CALL 2 (E REMPROP) S)
(MOVE 1 -2 P)
(MOVEM 1 -1 P)
TAG5 (MOVEI 2 (QUOTE ALIAS) S)
(MOVE 1 -2 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(MOVEI 3 (QUOTE T) S)
(HRRZ@ 2 1)
(HLRZ@ 1 1)
(PUSHJ P CHNGNM)
(JUMPN 1 TAG6)
TAG7
TAG6 (MOVE 1 -1 P)
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP RESTORE SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(PUSH P -4 P)
(MOVEI 2 (QUOTE FUNTYPE) S)
(CALL 2 (E GET) S)
(HRRZ@ 1 1)
(MOVEI 2 (QUOTE (EXPR SUBR LSUBR)) S)
(MOVEM 1 -3 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG13)
(MOVEI 2 (QUOTE EXPR) S)
(JRST 0 TAG12)
TAG13 (MOVEI 2 (QUOTE (FEXPR FSUBR)) S)
(MOVE 1 -3 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG14)
(MOVEI 2 (QUOTE FEXPR) S)
(JRST 0 TAG12)
TAG14 (MOVEI 2 (QUOTE MACRO) S)
TAG12 (POP P 1)
(CALL 2 (E GET) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG7)
(CALL 1 (E CAADDR) S)
(CAIE 1 (QUOTE BREAK1) S)
(JRST 0 TAG7)
(PUSH P 0 P)
(PUSH P -5 P)
(MOVE 1 -4 P)
(CAIE 1 (QUOTE MACRO) S)
(JRST 0 TAG20)
(MOVEI 2 (QUOTE FEXPR) S)
(JRST 0 TAG17)
TAG20 (MOVE 2 -4 P)
TAG17 (MOVE 1 -1 P)
(CALL 2 (E GET) S)
(MOVE 3 -4 P)
(MOVE 2 1)
(EXCH 1 0 P)
(CALL 3 (E PUTPROP) S)
(MOVEI 2 (QUOTE LEXPR) S)
(MOVE 1 -2 P)
(CALL 2 (E GET) S)
(JUMPE 1 TAG24)
(HRRZ@ 1 0 P)
(HLRZ@ 2 1)
(HLRZ@ 2 2)
(HRLM@ 2 1)
(JRST 0 TAG23)
TAG24 (MOVEI 2 (QUOTE (LSUBR SUBR)) S)
(MOVE 1 -4 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG25)
(MOVEI 2 (QUOTE EXPR) S)
(MOVE 1 -6 P)
(CALL 2 (E REMPROP) S)
(JRST 0 TAG23)
TAG25 (MOVEI 2 (QUOTE (FSUBR MACRO)) S)
(MOVE 1 -4 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG26)
(MOVEI 2 (QUOTE FEXPR) S)
(MOVE 1 -6 P)
(CALL 2 (E REMPROP) S)
TAG26
TAG23 (POP P -3 P)
(SUB P (C 1 0 1 0))
TAG7 (MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(CALL 17 (E REMOB) S)
(MOVEI 2 (QUOTE ERXACTION) S)
(MOVE 1 -4 P)
(CALL 2 (E REMPROP) S)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 2 (E REMPROP) S)
(MOVE 1 -4 P)
(JRST 0 TAG4)
TAG5 (MOVEI 2 (QUOTE (NOT BROKEN)) S)
(MOVE 1 -4 P)
(CALL 2 (E CONS) S)
TAG4 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP PACK-IN SUBR)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE IN) S)
(JRST 0 TAG3)
(PUSH P (C 0 0 TAG4 0))
(HLRZ@ 1 -1 P)
(CALL 1 (E EXPLODE) S)
(PUSH P 1)
(PUSH P (C 0 0 TAG5 0))
(MOVEI 1 (QUOTE -IN-) S)
(CALL 1 (E EXPLODE) S)
(PUSH P 1)
(HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(CALL 1 (E EXPLODE) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG5 (PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG4 (CALL 1 (E READLIST) S)
(JRST 0 TAG1)
TAG3 (MOVEI 2 (QUOTE ?) S)
(MOVE 1 0 P)
(CALL 2 (E CONS) S)
(CALL 1 (E PRINT) S)
(JUMPE 1 TAG6)
(CALL 0 (E ERR) S)
TAG6
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP BROKENFNS (NIL) VALUE)
(DEFPROP TRACEDFNS (NIL) VALUE)
(DEFPROP BKFNLIST (NIL . BROKENFNS) VALUE)
(DEFPROP UNBREAKABLEFNS (NIL BREAK1 CONS APPEND RETURN PRIN1 PRINC ASSOC TERPRI *RSETERX LENGTH *GREAT ERR ATOM →
ADD1 *DIF) VALUE)